home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / STFX-soundsystemdisk.adf / sources / CheckSoundControll.S next >
Encoding:
Text File  |  1988-01-20  |  820 b   |  53 lines
  1. Read=-$2a
  2. Write=-$30
  3. Input=-$36
  4. Output=-$3c
  5.  
  6. start:
  7.   lea name,a1
  8. copyLoop:
  9.   move.b (a0)+,(a1)+
  10.   dbf d0,copyLoop
  11.   move.l #dosname,a1
  12.   move.l 4,a6
  13.   jsr -408(a6)
  14.   move.l d0,dosbase
  15.  
  16.   cmp.l #$fc0cd8,$6c       ;ist dort nicht der alte Vector ???
  17.   bne SoundControllAktive  ;nein etwas anderes....
  18.   clr.l d0
  19.   rts
  20. SoundControllAktive:
  21.   move.l #text,a0
  22.   bsr print
  23.   move.l #5,d0             ;CLI-WARNING
  24.   rts
  25.  
  26. print:
  27.   move.l a0,-(a7)
  28.   move.l DosBase,a6
  29.   jsr    OutPut(a6)
  30.   move.l d0,d1
  31.   move.l (a7)+,a0
  32.   move.l a0,d2
  33.   andi.w #-2,d2
  34. NullFind:
  35.   tst.b  (a0)+
  36.   bne.s  NullFind
  37.   move.l a0,d3
  38.   sub.l d2,d3
  39.   move.l DosBase,a6
  40.   jsr    write(a6)
  41.   rts
  42.  
  43. text:
  44.  dc.b 10
  45.  dc.b 'Please Remove SOUND-CONTROLLER before starting '
  46. name:
  47.  blk.b 25,' '
  48.  dc.b 10,10,0
  49.  
  50. dosname: dc.b 'dos.library',0
  51. even
  52. dosbase: dc.l 0
  53.